;Exam2013H25HPrg1 𐔒lɕϊ.txt
;-----------------------
MAIN START
	LAD GR1,M1
	CALL TOSEC
	ST GR0,SEC
	;-----------
	LAD GR1,MINSEC
	CALL TOSEC
	ST GR0,SEC2
	;----------------
	;ȉ
	LD GR0,SEC
	LAD GR1,MS12
	CALL TOTIME
	;---------------
	LD GR0,SEC2
	LAD GR1,MINSEC2
	CALL TOTIME
	RET
M1 DC '2'
M2 DC '0'
S1 DC '3'
S2 DC '8'
SEC DS 1
MS12 DS 5
	;----------
MINSEC DC '2538'
SEC2 DS 1
MINSEC2 DS 5
	END
;------------------
;Ⴆ΂PQRWbQORWbɕϊB
TOTIME START
	RPUSH
	LD GR2,=3       ;[v
	LAD GR3,VALUE2
LOOP3 LD GR4,0,GR3  ;fqS||l
	LD GR5,=0
LOOP4 CPA GR0,GR4   ;fqOfqS
	JMI NEXT
	ADDA GR5,=1
	SUBA GR0,GR4
	JUMP LOOP4
NEXT OR GR5,='0'    ;Zʂ̏𐔒l琔ɕϊ@
	;R[h̋K𗘗pĂBQƁFR[h\
	ST GR5,0,GR1    ;@J
	LAD GR3,1,GR3
	LAD GR1,1,GR1
	SUBA GR2,=1
	JNZ LOOP3
	OR GR0,='0'    ; GR0̒Ɋ؂ꂸɎcl
	;l琔ɕϊ@QƁFR[h\
	ST GR0,0,GR1   ;@@@@A
	RPOP
	RET
VALUE2 DC 600,60,10
	END
;--------------------------------
;Ⴆ΂QORWbPQRWbɕϊB
TOSEC START
	RPUSH
	LD GR5,=0
	LD GR2,=4      ;[v
	LAD GR3,VALUE1
LOOP1 LD GR0,0,GR1  ;fqO|||Ԃ̈ꌅ
	AND GR0,=#000F  ;lo
	ADDA GR0,GR5
	SUBA GR2,=1
	JZE FIN
	LD GR4,0,GR3  ;fqS||||l
	LD GR5,=0
LOOP2 SRL GR4,1   ;ȉłfqOwfqSs
	JOV INCR
	JNZ CONT   ;[ȂΎ̍ss@@C
	LAD GR3,1,GR3
	LAD GR1,1,GR1
	JUMP LOOP1
INCR ADDA GR5,GR0
CONT SLL GR0,1
	JUMP LOOP2
FIN RPOP
	RET
VALUE1 DC 10,6,10
	END
;-------------------------
